home *** CD-ROM | disk | FTP | other *** search
- IDEAL
- p386
-
- SEGMENT _Text byte public 'CODE' USE16
- assume CS:_Text
-
- ORG 100h
-
- EntryPoint:
- jmp START
- ────────────────────────────────────────────────────────────────────────────
- INCLUDE "D.INC"
- ────────────────────────────────────────────────────────────────────────────
- START:
- mov ax,cs ;NOTE: ES= PSP segment
- mov ds,ax
- mov bx,[es:2ch] ;Grab environment segment at offset 2ch
- mov [ENVseg],bx
- mov bx,es
- mov [PSPseg],bx
- add bx,80h/16 ;Make a seg pointing to the DTA
- mov [DTAseg],bx
- mov es,ax ;set ES to CS
-
- call DisplayDirectory
-
- call PrintEntries
-
- call PrintStats
-
- mov ax,4c00h
- int 21h
- ENDS
- END EntryPoint
-